home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / text / print / ghostscript2_6_1.lha / gs_2asc.ps < prev    next >
Text File  |  1993-05-05  |  12KB  |  383 lines
  1. %    Copyright (C) 1991, 1992, 1993 Aladdin Enterprises.  All rights reserved.
  2. %    Distributed by Free Software Foundation, Inc.
  3. %
  4. % This file is part of Ghostscript.
  5. %
  6. % Ghostscript is distributed in the hope that it will be useful, but
  7. % WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
  8. % to anyone for the consequences of using it or for whether it serves any
  9. % particular purpose or works at all, unless he says so in writing.  Refer
  10. % to the Ghostscript General Public License for full details.
  11. %
  12. % Everyone is granted permission to copy, modify and redistribute
  13. % Ghostscript, but only under the conditions described in the Ghostscript
  14. % General Public License.  A copy of this license is supposed to have been
  15. % given to you along with Ghostscript so you can know your rights and
  16. % responsibilities.  It should be in a file named COPYING.  Among other
  17. % things, the copyright notice and this notice must be preserved on all
  18. % copies.
  19.  
  20. % Extract the ASCII text from a PostScript file.  Nothing is displayed.
  21. % Instead, ASCII information is written to stdout.  If SIMPLE is defined,
  22. % just the text is written, with a guess at line breaks and word spacing.
  23. % If SIMPLE is not defined, lines are written to stdout as follows:
  24. %
  25. %    F <height> <width> (<fontname>)
  26. %        indicate font height and width of a space
  27. %
  28. %    S <x> <y> (<string>) <width>
  29. %        display a string
  30. %
  31. %    P
  32. %        end of page
  33. % 
  34. % <height> is an integer expressed in tenths of a point
  35. % <width> is an integer in tenths of a point.
  36. % <x> and <y> are integer coordinates, in tenths of a point, with origin
  37. %   at lower left.
  38. % <string> and <fontname> are strings represented with the standard
  39. %   PostScript escape conventions.
  40. % The idea is similar to Glenn Reid's `distillery', only a lot more
  41. % simple-minded, and less robust.
  42.  
  43. % Note that this code will only work in all cases if systemdict is writable
  44. % and if `binding' the definitions of operators defined as procedures
  45. % is deferred.  For this reason, it is normally invoked with
  46. %    gs -q -dNODISPLAY -dNOBIND -dWRITESYSTEMDICT gs_2asc.ps
  47.  
  48. % Thanks to J Greely <jgreely@cis.ohio-state.edu> for improvements
  49. % to this code.
  50.  
  51. /QUIET true def
  52. systemdict wcheck { systemdict } { userdict } ifelse begin
  53. /SIMPLE dup where { pop true } { false } ifelse def
  54.  
  55. % Disable the display operators.
  56.  
  57. /eofill { newpath } odef
  58. /erasepage { } odef
  59. /fill { newpath } odef
  60. /stroke { newpath } odef
  61.  
  62. % The image operators must read the input, but do nothing.
  63.  
  64. /colorimage { gsave nulldevice //colorimage grestore } odef
  65. /image { gsave nulldevice //image grestore } odef
  66. /imagemask { gsave nulldevice //imagemask grestore } odef
  67.  
  68. % Redefine the end-of-page operators.
  69.  
  70. /copypage { SIMPLE { (\014) } { (P\n) } ifelse //print } odef
  71. /showpage { copypage erasepage initgraphics } odef
  72.  
  73. % Redefine `show'.
  74.  
  75. % Set things up so our output will be in tenths of a point, with origin at
  76. % lower left.  This isolates us from the peculiarities of individual devices.
  77.  
  78. /.show.ident.matrix matrix def
  79. /.show.ident
  80.  { gsave initmatrix
  81.         % Assume the original transformation is well-behaved.
  82.    0.1 0 dtransform abs exch abs max /.show.scale exch def
  83.    0.1 dup scale .show.ident.matrix currentmatrix
  84.    grestore
  85.  } def
  86. /.coord
  87.  { transform .show.ident itransform
  88.    exch round cvi exch round cvi
  89.  } odef
  90. /.dcoord
  91.  {        % Transforming distances is trickier, because
  92.         % the coordinate system might be rotated.
  93.    .show.ident pop
  94.    exch 0 dtransform dup mul exch dup mul add sqrt .show.scale div
  95.    exch 0 exch dtransform dup mul exch dup mul add sqrt .show.scale div
  96.    exch round cvi exch round cvi
  97.  } odef
  98.  
  99. % Define a way to store and retrieve integers that survives save/restore.
  100. /.i.string (                ) def
  101. /.iget { cvi } bind def
  102. /.iput { exch //.i.string exch copy cvs pop } bind def
  103. /.inew { //.i.string length string dup 3 -1 roll .iput } bind def
  104. /.show.x 0 .inew def
  105. /.show.y 0 .inew def
  106. /.show.height 1000 .inew def
  107. % Remember whether the last string ended in a letter and a hyphen.
  108. % (If so, we didn't output the hyphen.)
  109. /.show.hyphen (\000) def
  110.  
  111. % Make sure writing will work even if a program uses =string.
  112. /.show.string =string length string def
  113. /.show.=string =string length string def
  114. /.show==only
  115.  { //=string //.show.=string copy pop
  116.    dup type /stringtype eq
  117.     { dup length //.show.string length le
  118.        { dup rcheck { //.show.string copy } if
  119.        } if
  120.     } if
  121.    //.stdout exch write==only
  122.    //.show.=string //=string copy pop
  123.  } odef
  124.  
  125. /.showfont
  126. %(following comments are from J Greely)
  127. %old code - This didn't work right for me with all fonts.
  128. %
  129. % { 0 currentfont /FontBBox get dup 3 get exch 1 get sub
  130. %   currentfont /FontMatrix get dtransform dtransform
  131. %   exch abs exch abs max round
  132. %   (F ) //print //.stdout exch write==only (\n) //print
  133. % } odef
  134. %
  135. %unfortunately, my way bombs on one of my test files in
  136. %--%show_continue--(?!).  It's from dvi2ps, which molests
  137. %the fonts in some way. --jgreely
  138.  { gsave
  139.     % If we can't get the height and width of the font from
  140.     % the FontBBox, we just measure some characters.
  141.      currentfont /FontBBox known
  142.       { currentfont /FontBBox get } { {0 0 0 0} }
  143.      ifelse
  144.      aload pop exch 4 -1 roll sub 3 1 roll exch sub
  145.      2 copy max 0 ne
  146.       { currentfont /FontMatrix get dtransform
  147.       }
  148.       {    % Unfortunately, charpath is broken in some versions,
  149.     % so we use stringwidth and fudge.
  150.     (X) stringwidth pop dup 1.3 mul
  151.       }
  152.      ifelse .dcoord exch
  153.      currentfont /FontName known
  154.       { currentfont /FontName get } { () }
  155.      ifelse
  156.      dup type /nametype eq { //.show.string cvs } if
  157.    grestore
  158.     % Stack: height width fontname
  159.    SIMPLE
  160.     { pop pop //.show.height exch .iput }
  161.     { (F ) //print 3
  162.        { 2 index .show==only ( ) //print 3 -1 roll } repeat
  163.       pop pop pop (\n) //print
  164.     }
  165.    ifelse
  166.  } odef
  167.  
  168. % Define the letters -- characters which, if they occur followed by a
  169. % hyphen at the end of a line, cause the hyphen and line break
  170. % to be ignored.
  171. /.letter.chars 100 dict def
  172. mark
  173.   65 1 90 { dup 32 add } for
  174. counttomark { StandardEncoding exch get .letter.chars exch dup put } repeat
  175. pop
  176.  
  177. % Define a set of characters which, if they occur at the start of a line,
  178. % are taken as indicating a paragraph break.
  179. /.break.chars 50 dict def
  180. mark
  181.   /bullet /dagger /daggerdbl /periodcentered /section
  182. counttomark { .break.chars exch dup put } repeat
  183. pop
  184.  
  185. % Define character translation to ASCII.
  186. % We have to do this for the entire character set.
  187. /.char.map 500 dict def
  188. /.chars.def { counttomark 2 idiv { .char.map 3 1 roll put } repeat pop } def
  189.     % Encode the printable ASCII characters.
  190. mark 32 1 126
  191.  { 1 string dup 0 4 -1 roll put
  192.    dup 0 get StandardEncoding exch get exch
  193.  }
  194. for .chars.def
  195.     % Encode accents.
  196. mark
  197.   /acute (') /caron (^) /cedilla (,) /circumflex (^)
  198.   /dieresis (") /grave (`) /ring (*) /tilde (~)
  199. .chars.def
  200.     % Encode the ISO accented characters.
  201. mark 192 1 255
  202.  { ISOLatin1Encoding exch get =string cvs
  203.    dup 0 1 getinterval 1 index dup length 1 sub 1 exch getinterval
  204.    .char.map 2 index known .char.map 2 index known and
  205.     { .char.map 3 -1 roll get .char.map 3 -1 roll get concatstrings
  206.       .char.map 3 1 roll put
  207.     }
  208.     { pop pop pop
  209.     }
  210.    ifelse
  211.  }
  212. for .chars.def
  213.     % Encode the remaining standard and ISO alphabetic characters.
  214. mark
  215.   /AE (AE) /Eth (DH) /OE (OE) /Thorn (Th)
  216.   /ae (ae) /eth (dh)
  217.   /ffi (ffi) /ffl (ffl) /fi (fi) /fl (fl)
  218.   /germandbls (ss) /oe (oe) /thorn (th)
  219. .chars.def
  220.     % Encode the other standard and ISO characters.
  221. mark
  222.   /brokenbar (|) /bullet (*) /copyright ((C)) /currency (#)
  223.   /dagger (#) /daggerdbl (##) /degree (o) /divide (/) /dotaccent (.)
  224.   /dotlessi (i)
  225.   /ellipsis (...) /emdash (--) /endash (-) /exclamdown (!)
  226.   /florin (f) /fraction (/)
  227.   /guillemotleft (<<) /guillemotright (>>)
  228.   /guilsingleft (<) /guilsingright (>) /hungarumlaut ("") /logicalnot (~)
  229.   /macron (_) /minus (-) /mu (u) /multiply (*)
  230.   /ogonek (,) /onehalf (1/2) /onequarter (1/4) /onesuperior (1)
  231.   /ordfeminine (-a) /ordmasculine (-o)
  232.   /paragraph (||) /periodcentered (*) /perthousand (o/oo) /plusminus (+-)
  233.   /questiondown (?) /quotedblbase (") /quotedblleft (") /quotedblright (")
  234.   /quotesinglbase (,) /quotesingle (') /registered ((R))
  235.   /section ($) /sterling (#)
  236.   /threequarters (3/4) /threesuperior (3) /trademark ((TM)) /twosuperior (2)
  237.   /yen (Y)
  238. .chars.def
  239.     % Encode a few common Symbol characters.
  240. mark
  241.   /asteriskmath (*) /copyrightsans ((C)) /copyrightserif ((C))
  242.   /greaterequal (>=) /lessequal (<=) /registersans ((R)) /registerserif ((R))
  243.   /trademarksans ((TM)) /trademarkserif ((TM))
  244. .chars.def
  245.  
  246. % Write out a string.  If it ends in a letter and a hyphen,
  247. % don't write the hyphen, and set .show.hyphen to 1;
  248. % otherwise, set .show.hyphen to 0.
  249. /.show.write    % <string>
  250.  { //.show.hyphen 0 0 put
  251.    dup length 2 ge
  252.     { dup dup length 1 sub get 45 eq    % hyphen
  253.        { dup dup length 2 sub get
  254.      currentfont /Encoding get exch get
  255.      //.letter.chars exch known
  256.       {    % Remove the hyphen, and set .show.hyphen
  257.         dup length 1 sub 0 exch getinterval
  258.         //.show.hyphen 0 1 put
  259.       }
  260.      if
  261.        }
  262.       if
  263.     }
  264.    if
  265.     { dup currentfont /Encoding get exch get
  266.       dup //.char.map exch known
  267.        { //.char.map exch get //.stdout exch writestring pop
  268.        }
  269.        { currentfont /Encoding dup StandardEncoding eq
  270.      exch ISOLatin1Encoding eq or
  271.       {    % Untranslated character in standard encoding
  272.         pop //.stdout exch write
  273.       }
  274.       {    % Character in non-standard encoding, substitute
  275.         pop pop //.stdout (*) writestring
  276.       }
  277.      ifelse
  278.        }
  279.       ifelse
  280.     }
  281.    forall
  282.  } odef
  283. /.showstring
  284.  { currentpoint .coord
  285.    3 -1 roll dup stringwidth 1 index 0 rmoveto
  286.    .dcoord pop
  287.     % Stack: x y string width
  288.    SIMPLE
  289.     { 2 index //.show.y .iget ne
  290.        {    % Try to figure out whether we have a line break
  291.         % or a paragraph break.
  292.      2 index //.show.y .iget sub abs
  293.      //.show.height .iget 1.3 mul ge
  294.      2 index length 0 gt
  295.       { 2 index 0 get currentfont /Encoding get exch get
  296.         .break.chars exch known { pop true } if
  297.       }
  298.      if
  299.       { (\n\n)    % Paragraph
  300.       }
  301.       { ( )        % Line
  302.       }
  303.      ifelse //print
  304.      //.show.y 3 index .iput
  305.          //.show.x 4 index .iput
  306.        }
  307.       if
  308.     % If the word processor split a hyphenated word within the same line,
  309.     % put out the hyphen now.
  310.       //.show.hyphen 0 get 0 ne { (-) //print } if
  311.       3 index //.show.x .iget 1 add gt
  312.        { ( ) //print
  313.        }
  314.       if
  315.       4 1 roll .show.write pop add //.show.x exch .iput
  316.     }
  317.     { (S ) //print
  318.       4 -1 roll .show==only ( ) //print
  319.       3 -1 roll .show==only ( ) //print
  320.       exch .show==only ( ) //print
  321.       .show==only (\n) //print
  322.     }
  323.    ifelse
  324.  } odef
  325.      
  326. /show
  327.  { .showfont .showstring
  328.  } odef
  329.  
  330. % Redefine the other string display operators in terms of `show'.
  331.  
  332. /.show1.string ( ) def
  333. /.show1 { //.show1.string exch 0 exch put //.show1.string .showstring } odef
  334. /ashow
  335.  { .showfont
  336.    { .show1 2 copy rmoveto } forall
  337.    pop pop
  338.  } odef
  339. /awidthshow
  340.  { .showfont
  341.     { dup .show1 4 index eq { 4 index 4 index rmoveto } if
  342.       2 copy rmoveto
  343.     }
  344.    forall
  345.    pop pop pop pop pop
  346.  } odef
  347. /widthshow
  348.  { .showfont
  349.    //.show1.string 0 4 -1 roll put
  350.     { //.show1.string search not { exit } if
  351.       .showstring .showstring
  352.       2 index 2 index rmoveto
  353.     } loop
  354.    .showstring pop pop
  355.  } odef
  356. /kshow
  357.  { .showfont
  358.    { .show1 dup exec } forall pop
  359.  } odef
  360.  
  361. % Redirect the printing operators.
  362.  
  363. /.stdout (_temp_.out) (w) file def
  364. /.stderr (_temp_.err) (w) file def
  365. /print { //.stdout exch writestring } odef
  366.  
  367. end
  368.  
  369. % Bind the operators we just defined, and all the others if we didn't
  370. % do it before.  Also reenable 'bind' for future files.
  371.  
  372. .bindoperators
  373. NOBIND currentdict systemdict ne and
  374.  { systemdict begin .bindoperators end }
  375. if
  376. NOBIND
  377.  { /bind /.bind load def }
  378. if
  379.  
  380. % Make systemdict read-only if it wasn't already.
  381.  
  382. systemdict wcheck { systemdict readonly pop } if
  383.